procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := FormatDateTime('d. mmmm yyyy  hh:mm:ss', Now);
end; 
